home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Data / light2.JIN < prev    next >
Encoding:
Text File  |  1997-12-09  |  903 b   |  81 lines
  1. #SetMaxFrame 2
  2. #SetFrameWidth 41
  3. #SetTransColour 0
  4.  
  5. on { 
  6.  
  7.      // Specify the bitmap
  8.      SetBitmap 201.bmp
  9.  
  10.      // Set initial ZOrder
  11.      Zorder 100
  12.  
  13.      // Show the light
  14.      Show
  15.  
  16.      Repeat
  17.  
  18.        // Cycle through the lights
  19.        call light1
  20.        call light3
  21.        call light5
  22.        call light2
  23.        call light4
  24.        call light5
  25.        call light5
  26.        call light3
  27.        call light4
  28.        call light2
  29.  
  30.      EndLoop
  31. }
  32.  
  33.  
  34. light1 {
  35.  
  36.    SetFrame 1
  37.    Move 198 122
  38.    Sleep
  39.    SetFrame 2
  40.    Sleep
  41. }
  42.  
  43.  
  44. light2 {
  45.  
  46.    SetFrame 2
  47.    Move 260 123
  48.    Sleep
  49.    SetFrame 1
  50.    Sleep
  51. }
  52.  
  53.  
  54. light3 {
  55.  
  56.    SetFrame 1
  57.    Move 327 122
  58.    Sleep
  59.    SetFrame 2
  60.    Sleep
  61. }
  62.  
  63. light4 {
  64.  
  65.    SetFrame 2
  66.    Move 388 123
  67.    Sleep
  68.    SetFrame 1
  69.    Sleep
  70. }
  71.  
  72.  
  73. light5 {
  74.  
  75.    SetFrame 1
  76.    Move 456 123
  77.    Sleep
  78.    SetFrame 2
  79.    Sleep
  80. }
  81.